home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / am9311b.lha / Tips & Tricks / Druckertest.bas next >
BASIC Source File  |  1993-09-30  |  860b  |  40 lines
  1. REM Programm Nadeltest
  2. REM Die angegebenen Steuercodes sind für
  3. REM den Fujitsu DPL24C+ gültig
  4.  
  5. REM Öffnen der parallelen Schnittstelle
  6. OPEN "PAR:" FOR OUTPUT AS #1
  7. REM Hinweistext ausgeben
  8. PRINT #1,"Nadeltest"
  9. PRINT #1,"Fehlt bei der schraegen Linie"
  10. PRINT #1,"ein Segment, ist die Nadel"
  11. PRINT #1,"defekt."
  12.  
  13. REM Grafikmodus einschalten
  14. PRINT #1,CHR$(27);CHR$(42);CHR$(39);
  15. PRINT #1,CHR$(128);CHR$(4);
  16. REM Von oben nach unten druckt jede
  17. REM Nadel eine Linie von 48 Spalten
  18. FOR t=7 TO 0 STEP -1
  19.   FOR i=0 TO 47
  20.     PRINT #1,CHR$(2^t);CHR$(0);CHR$(0);
  21.   NEXT i
  22. NEXT t
  23.  
  24. FOR t=7 TO 0 STEP -1
  25.   FOR i=0 TO 47
  26.     PRINT #1,CHR$(0);CHR$(2^t);CHR$(0);
  27.   NEXT i
  28. NEXT t
  29.  
  30. FOR t=7 TO 0 STEP -1
  31.   FOR i=0 TO 47
  32.     PRINT #1,CHR$(0);CHR$(0);CHR$(2^t);
  33.   NEXT i
  34. NEXT t
  35.  
  36. REM Zeilenvorschub und Schließen der
  37. REM parallelen Schnittstelle
  38. PRINT #1,CHR$(13);CHR$(10);
  39. CLOSE #1
  40.